home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / shells / scsh-0.4 / scsh-0 / scsh-0.4.2 / debug / spatial-hack.scm < prev    next >
Text File  |  1995-10-13  |  2KB  |  64 lines
  1. ; Copyright (c) 1993, 1994 Richard Kelsey and Jonathan Rees.  See file COPYING.
  2.  
  3.  
  4. ; load into initial image
  5.  
  6. (init-defpackage! eval
  7.           (lambda ()
  8.             (delay (make-simple-package (list scheme-level-1)
  9.                         #t (delay #f) 'for-syntax))))
  10.  
  11. (define-structures ((assembler (export (lap syntax))))
  12.   (open scheme-level-2 compiler architecture
  13.     signals                ;error
  14.     enumerated            ;name->enumerand
  15.     code-vectors
  16.     locations)            ;location?
  17.   (specials lap)
  18.   (files (env assem)))
  19.  
  20. (ensure-loaded assembler)
  21.  
  22. (define-structures ((spatial (export space init-space)))
  23.    (open scheme-level-2 architecture primitives packages)
  24.    (files (debug space)))
  25.  
  26. (ensure-loaded spatial)
  27.  
  28. ((*structure-ref spatial 'init-space) eval assembler)
  29.  
  30. (define-interface define-record-types-interface
  31.   (export (define-record-type syntax)
  32.       define-record-discloser))
  33. (define-structures ((define-record-types define-record-types-interface))
  34.   (open scheme-level-1 record)
  35.   (files (rts jar-defrecord)))
  36. (define-interface queue-interface
  37.   (export make-queue enqueue dequeue queue-empty?
  38.       queue? queue->list queue-length delete-from-queue!))
  39. (define-structures ((queues queue-interface))
  40.   (open scheme-level-1 define-record-types signals)
  41.   (files (big queue))
  42.   (optimize auto-integrate))
  43. (define-structure traverse
  44.     (export traverse-depth-first traverse-breadth-first trail
  45.         set-leaf-predicate! usual-leaf-predicate)
  46.   (open scheme-level-2
  47.     primitives            ; ?
  48.     queues table
  49.     bitwise locations closures code-vectors
  50.     features            ; string-hash
  51.     low-level)            ; flush-the-symbol-table!
  52.   (files (env traverse)))
  53.  
  54. (ensure-loaded traverse)
  55.  
  56. (define foo
  57.   (make-simple-package (list scheme-level-2
  58.                  spatial traverse vm-exposure)
  59.                eval (delay #f) 'foo))
  60.  
  61. ; (define command-processor (*structure-ref command 'command-processor))
  62.  
  63. ; (set-interaction-environment! foo)
  64.